home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr27 / ms242.zip / FRANCAIS.CMD < prev    next >
OS/2 REXX Batch file  |  1994-12-15  |  3KB  |  137 lines
  1. /* FRANCAIS.CMD : installation de 'Ressources système' en français. */
  2.  
  3. '@Echo Off'
  4.  
  5. /* Load REXXUTIL */
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9.  
  10.  
  11. /* Initialize */
  12.  
  13. Signal On Failure Name FAILURE
  14. Signal On Halt Name HALT
  15. Signal On Syntax Name SYNTAX
  16.  
  17. Call SysCls
  18. Say 'Installation de 'D2C(39)'Ressources système'D2C(39)'...'
  19. Say ''
  20.  
  21.  
  22. /* Vérification de l'existance des différents fichiers. */
  23.  
  24. Language = 'FRANCAIS'
  25.  
  26. Result = SysFileTree( 'MEMSIZE.EXE', 'Files', 'F' )
  27. If Files.0 = 0 Then
  28.   Do
  29.   Say 'Erreur : MEMSIZE.EXE introuvable !'
  30.   Signal DONE
  31.   End
  32.  
  33. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  34. If Files.0 = 0 Then
  35.   Do
  36.   Say 'Erreur : 'Language'.DLL introuvable !'
  37.   Signal DONE
  38.   End
  39.  
  40. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  41. If Files.0 = 0 Then
  42.   Do
  43.   Say 'Erreur : 'Language'.HLP introuvable !'
  44.   Signal DONE
  45.   End
  46.  
  47. /* Saisie du répertoire de destination. */
  48.  
  49. Say 'Veuillez saisir le nom complet du répertoire où MEMSIZE'
  50. Say '  doit être installé (par défaut, C:\OS2\APPS) : '
  51. Pull Directory
  52. If Directory = "" Then Directory = 'C:\OS2\APPS'
  53.  
  54.  
  55. /* Création du répertoire destination si nécessaire. */
  56.  
  57. Result = SysFileTree( Directory, 'Dirs', 'D' )
  58. If Dirs.0 = 0 Then
  59.   Do
  60.   Result = SysMkDir( Directory )
  61.   if Result == 0 Then
  62.     Do
  63.     End
  64.   Else
  65.     Do
  66.     Say 'Erreur : Impossible de créer le répertoire destination.'
  67.     Signal DONE
  68.     End
  69.   End
  70. Say ''
  71.  
  72.  
  73. /* Saisie par l'utilisateur du dossier destination. */
  74.  
  75. Say 'Désirez-vous ajouter 'D2C(39)'Ressources système'D2C(39)' au dossier de lancement ? (O/N) '
  76. Pull YesNo
  77. If YesNo = "O" Then
  78.   Do
  79.   Folder = '<WP_START>'
  80.   Say 'L'D2C(39)'objet sera placé dans le dossier de lancement.'
  81.   End
  82. Else
  83.   Do
  84.   Folder = '<WP_DESKTOP>'
  85.   Say 'L'D2C(39)'objet sera placé sur le bureau.'
  86.   End
  87. Say ''
  88.  
  89.  
  90. /* Installation */
  91.  
  92. Say 'Copie de 'D2C(39)'Ressources système'D2C(39)' vers ' Directory '...'
  93. Copy MEMSIZE.EXE Directory                  '1>NUL'
  94. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  95. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  96. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  97.  
  98. Result = SysFileTree( Language".INF", 'Files', 'F' )
  99. If Files.0 > 0 Then
  100.    Do
  101.    Copy Language".INF" Directory"\MEMSIZE.INF"  '1>NUL'
  102.    End
  103.  
  104. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  105. If Files.0 > 0 Then
  106.    Do
  107.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  108.    End
  109.  
  110. Say 'Création de l'D2C(39)'objet programme...'
  111. Type = 'WPProgram'
  112. Title = 'Ressources système'
  113. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  114. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  115.  
  116. If Result = 1 Then
  117.   Say 'Objet créé ! Terminé.'
  118. Else
  119.   Say 'Erreur : l'D2C(39)'objet n'D2C(39'a pas pu être créé.'
  120.  
  121. Signal DONE
  122.  
  123. FAILURE:
  124. Say 'Échec REXX.'
  125. Signal DONE
  126.  
  127. HALT:
  128. Say 'Halte REXX.'
  129. Signal DONE
  130.  
  131. SYNTAX:
  132. Say 'Erreur de syntaxe REXX.'
  133. Signal DONE
  134.  
  135. DONE:
  136. Exit
  137.